1 POKE53280,0:POKE53281,0:PRINT"[147][158]"
2 PRINT" [212]HIS PROGRAM CONVERTS THE [193][205][201][195][193]-[208][193][201][206][212]"
3 PRINT" TEXT-EXTENSION  ROUTINE, FOR  THE USE"
4 PRINT" OF EXPANDED CHARACTERSETS."
5 PRINT" [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
6 PRINT"[154]  [201]NSERT DISK WITH THE TEXT-EXTENSION,"
7 PRINT"  THEN PRESS ANY KEY."
8 POKE198,0:WAIT198,1:POKE198,0
9 PRINT"  [204]OADING THE TEXT-EXTENSION.[144]"
10 SYS57812"[W]TEXT",8,1:POKE780,0:SYS65493
11 EL=PEEK(174):EH=PEEK(175)
12 PRINT:PRINT"[154]  [195]ONVERTING THE TEXT-EXTENSION."
13 F1=PEEK(16593):F3=PEEK(16603)
14 IFF1=133ANDF3=134THENPRINT"    [212]HIS IS ALREADY THE NEW VERSION. ":END
15 IFF1<>166ORF3<>220THENPRINT"    [212]HIS IS NOT THE TEXT-EXTENSION. ":END
16 POKE16593,133:POKE16603,134
17 PRINT"[154]  [201]NSERT NEW DISK, THEN PRESS ANY KEY."
18 POKE198,0:WAIT198,1:POKE198,0
19 PRINT"  [210]ENAMING OLD VERSION."
20 OPEN1,8,15,"R:[W]TEXT.OLD=[W]TEXT":CLOSE1
21 PRINT"  [211]AVING NEW VERSION.[144]"
22 SYS57812"[W]TEXT",8:POKE193,0:POKE194,64:SYS62957
23 PRINT"[145][159]"